home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 3.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar 9 13|
|00000040| 3a 30 33 3a 34 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:03:48 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 69 6c 69 73 |s-20.3/l|isp/ilis|
|000000a0| 70 2f 69 6c 69 73 70 2d | 78 66 72 2e 65 6c 0a 3b |p/ilisp-|xfr.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 69 6c 69 73 | (erro|r "`ilis|
|000001f0| 70 2d 78 66 72 2e 65 6c | 27 20 77 61 73 20 63 6f |p-xfr.el|' was co|
|00000200| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|00000210| 20 32 30 22 29 29 0a 0a | 28 6f 72 20 28 62 6f 75 | 20"))..|(or (bou|
|00000220| 6e 64 70 20 27 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |ndp 'cur|rent-loa|
|00000230| 64 2d 6c 69 73 74 29 20 | 28 73 65 74 71 20 63 75 |d-list) |(setq cu|
|00000240| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00000250| 6e 69 6c 29 29 0a 0a 0a | 23 40 31 32 38 20 47 72 |nil))...|#@128 Gr|
|00000260| 61 62 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 65 |ab the c|urrent e|
|00000270| 78 70 72 65 73 73 69 6f | 6e 20 77 69 74 68 20 63 |xpressio|n with c|
|00000280| 6f 6d 69 6e 74 2d 67 65 | 74 2d 6f 6c 64 2d 69 6e |omint-ge|t-old-in|
|00000290| 70 75 74 2e 20 20 49 66 | 20 77 65 20 68 61 76 65 |put. If| we have|
|000002a0| 0a 61 20 63 6f 6d 70 6c | 65 74 65 20 73 65 78 70 |.a compl|ete sexp|
|000002b0| 2c 20 73 65 6e 64 20 69 | 74 2e 20 20 4f 74 68 65 |, send i|t. Othe|
|000002c0| 72 77 69 73 65 2c 20 69 | 6e 64 65 6e 74 20 61 70 |rwise, i|ndent ap|
|000002d0| 70 72 6f 70 72 69 61 74 | 65 6c 79 2e 1f 0a 28 64 |propriat|ely...(d|
|000002e0| 65 66 61 6c 69 61 73 20 | 27 72 65 74 75 72 6e 2d |efalias |'return-|
|000002f0| 69 6c 69 73 70 20 23 5b | 6e 69 6c 20 22 c0 70 21 |ilisp #[|nil ".p!|
|00000300| 89 19 ac 86 c2 c3 21 82 | a3 00 c4 09 21 1d c6 20 |......!.|....!.. |
|00000310| 89 1e 07 ab e0 60 0d 59 | ab 85 64 62 88 aa 87 0d |.....`.Y|..db....|
|00000320| 62 88 0e 07 63 88 0e 08 | ac 83 c9 63 88 0e 5c 6e |b...c...|...c..\n|
|00000330| 0e 07 21 ab 97 cb cc 20 | 21 ac 8a cd cc 20 ce 5c |..!.... |!.... .\|
|00000340| 22 0e 07 98 ac 87 cf cc | 20 0e 07 5c 22 88 0e 10 |".......| ..\"...|
|00000350| 0e 07 21 88 0e 11 d2 61 | ab 83 d3 16 14 d3 16 15 |..!....a|........|
|00000360| 0e 16 09 0e 07 5c 22 88 | c4 09 21 60 d3 93 88 0e |.....\".|..!`....|
|00000370| 17 60 d3 93 88 64 62 aa | aa 0d 64 55 ab 99 d8 1e |.`...db.|..dU....|
|00000380| 19 0e 08 ac 83 c9 63 88 | c4 09 21 60 d3 93 88 0e |......c.|..!`....|
|00000390| 16 09 da 5c 22 29 aa 8c | c9 63 88 8c 0d 64 7d 88 |...\")..|.c...d}.|
|000003a0| 0e 1b 20 29 2a 29 87 22 | 20 5b 67 65 74 2d 62 75 |.. )*)."| [get-bu|
|000003b0| 66 66 65 72 2d 70 72 6f | 63 65 73 73 20 70 72 6f |ffer-pro|cess pro|
|000003c0| 63 20 65 72 72 6f 72 20 | 22 43 75 72 72 65 6e 74 |c error |"Current|
|000003d0| 20 62 75 66 66 65 72 20 | 68 61 73 20 6e 6f 20 70 | buffer |has no p|
|000003e0| 72 6f 63 65 73 73 22 20 | 70 72 6f 63 65 73 73 2d |rocess" |process-|
|000003f0| 6d 61 72 6b 20 70 6d 61 | 72 6b 20 69 6c 69 73 70 |mark pma|rk ilisp|
|00000400| 2d 67 65 74 2d 6f 6c 64 | 2d 69 6e 70 75 74 20 69 |-get-old|-input i|
|00000410| 6e 70 75 74 20 69 6c 69 | 73 70 2d 6e 6f 2d 6e 65 |nput ili|sp-no-ne|
|00000420| 77 6c 69 6e 65 20 3f 5c | 6e 20 63 6f 6d 69 6e 74 |wline ?\|n comint|
|00000430| 2d 69 6e 70 75 74 2d 66 | 69 6c 74 65 72 20 72 69 |-input-f|ilter ri|
|00000440| 6e 67 2d 65 6d 70 74 79 | 2d 70 20 69 6c 69 73 70 |ng-empty|-p ilisp|
|00000450| 2d 67 65 74 2d 69 6e 70 | 75 74 2d 72 69 6e 67 20 |-get-inp|ut-ring |
|00000460| 72 69 6e 67 2d 72 65 66 | 20 30 20 69 6c 69 73 70 |ring-ref| 0 ilisp|
|00000470| 2d 72 69 6e 67 2d 69 6e | 73 65 72 74 20 63 6f 6d |-ring-in|sert com|
|00000480| 69 6e 74 2d 69 6e 70 75 | 74 2d 73 65 6e 74 69 6e |int-inpu|t-sentin|
|00000490| 65 6c 20 2b 69 6c 69 73 | 70 2d 65 6d 61 63 73 2d |el +ilis|p-emacs-|
|000004a0| 76 65 72 73 69 6f 6e 2d | 69 64 2b 20 66 73 66 2d |version-|id+ fsf-|
|000004b0| 31 39 20 6e 69 6c 20 63 | 6f 6d 69 6e 74 2d 69 6e |19 nil c|omint-in|
|000004c0| 70 75 74 2d 72 69 6e 67 | 2d 69 6e 64 65 78 20 69 |put-ring|-index i|
|000004d0| 6c 69 73 70 2d 6f 72 69 | 67 69 6e 61 6c 20 63 6f |lisp-ori|ginal co|
|000004e0| 6d 69 6e 74 2d 69 6e 70 | 75 74 2d 73 65 6e 64 65 |mint-inp|ut-sende|
|000004f0| 72 20 63 6f 6d 69 6e 74 | 2d 6c 61 73 74 2d 69 6e |r comint|-last-in|
|00000500| 70 75 74 2d 65 6e 64 20 | 74 20 63 6f 6d 69 6e 74 |put-end |t comint|
|00000510| 2d 73 65 6e 64 2d 6e 65 | 77 6c 69 6e 65 20 22 22 |-send-ne|wline ""|
|00000520| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 2d 66 75 6e | indent-|line-fun|
|00000530| 63 74 69 6f 6e 5d 20 34 | 20 28 23 24 20 2e 20 36 |ction] 4| (#$ . 6|
|00000540| 30 36 29 20 6e 69 6c 5d | 29 0a 23 40 31 36 38 20 |06) nil]|).#@168 |
|00000550| 53 74 61 72 74 20 75 73 | 69 6e 67 20 72 61 77 20 |Start us|ing raw |
|00000560| 6b 65 79 62 6f 61 72 64 | 20 6d 6f 64 65 20 74 6f |keyboard| mode to|
|00000570| 20 73 65 6e 64 20 65 61 | 63 68 20 63 68 61 72 61 | send ea|ch chara|
|00000580| 63 74 65 72 20 74 79 70 | 65 64 20 74 6f 20 74 68 |cter typ|ed to th|
|00000590| 65 0a 69 6e 66 65 72 69 | 6f 72 20 4c 49 53 50 20 |e.inferi|or LISP |
|000005a0| 75 6e 74 69 6c 20 61 20 | 6b 65 79 20 62 6f 75 6e |until a |key boun|
|000005b0| 64 20 74 6f 20 69 6e 74 | 65 72 61 63 74 69 76 65 |d to int|eractive|
|000005c0| 2d 6b 65 79 73 2d 69 6c | 69 73 70 20 69 73 0a 65 |-keys-il|isp is.e|
|000005d0| 6e 63 6f 75 6e 74 65 72 | 65 64 2e 20 20 53 65 65 |ncounter|ed. See|
|000005e0| 20 61 6c 73 6f 20 69 6f | 2d 62 72 69 64 67 65 2d | also io|-bridge-|
|000005f0| 69 6c 69 73 70 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ilisp...|(defalia|
|00000600| 73 20 27 72 61 77 2d 6b | 65 79 73 2d 69 6c 69 73 |s 'raw-k|eys-ilis|
|00000610| 70 20 23 5b 6e 69 6c 20 | 22 08 ac 9c c1 20 1a c3 |p #[nil |".... ..|
|00000620| 5c 6e c4 5c 22 88 c5 c6 | 0e 07 5c 22 ab 84 c1 20 |\n.\"...|..\"... |
|00000630| 16 08 c9 5c 6e ca cb 23 | 88 5c 6e 10 29 cc 08 21 |...\n..#|.\n.)..!|
|00000640| 88 cd 0e 0e 21 87 22 20 | 5b 69 6c 69 73 70 2d 72 |....!." |[ilisp-r|
|00000650| 61 77 2d 6d 61 70 20 6d | 61 6b 65 2d 6b 65 79 6d |aw-map m|ake-keym|
|00000660| 61 70 20 6d 61 70 20 66 | 69 6c 6c 61 72 72 61 79 |ap map f|illarray|
|00000670| 20 69 6c 69 73 70 2d 73 | 65 6e 64 2d 63 68 61 72 | ilisp-s|end-char|
|00000680| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 4c | string-|match "L|
|00000690| 75 63 69 64 22 20 65 6d | 61 63 73 2d 76 65 72 73 |ucid" em|acs-vers|
|000006a0| 69 6f 6e 20 69 6c 69 73 | 70 2d 63 6f 6d 70 6c 65 |ion ilis|p-comple|
|000006b0| 74 69 6f 6e 2d 6d 61 70 | 20 64 65 66 69 6e 65 2d |tion-map| define-|
|000006c0| 6b 65 79 20 22 07 22 20 | 69 6e 74 65 72 61 63 74 |key "." |interact|
|000006d0| 69 76 65 2d 6b 65 79 73 | 2d 69 6c 69 73 70 20 75 |ive-keys|-ilisp u|
|000006e0| 73 65 2d 6c 6f 63 61 6c | 2d 6d 61 70 20 6d 65 73 |se-local|-map mes|
|000006f0| 73 61 67 65 20 69 6c 69 | 73 70 2d 72 61 77 2d 6d |sage ili|sp-raw-m|
|00000700| 65 73 73 61 67 65 5d 20 | 34 20 28 23 24 20 2e 20 |essage] |4 (#$ . |
|00000710| 31 33 36 30 29 20 6e 69 | 6c 5d 29 0a 23 40 36 38 |1360) ni|l]).#@68|
|00000720| 20 47 6f 20 62 61 63 6b | 20 74 6f 20 69 6e 74 65 | Go back| to inte|
|00000730| 72 61 63 74 69 76 65 20 | 6b 65 79 62 6f 61 72 64 |ractive |keyboard|
|00000740| 20 69 6e 74 65 72 61 63 | 74 69 6f 6e 73 20 69 6e | interac|tions in|
|00000750| 20 74 68 65 20 69 6e 66 | 65 72 69 6f 72 20 4c 49 | the inf|erior LI|
|00000760| 53 50 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |SP...(de|falias '|
|00000770| 69 6e 74 65 72 61 63 74 | 69 76 65 2d 6b 65 79 73 |interact|ive-keys|
|00000780| 2d 69 6c 69 73 70 20 23 | 5b 6e 69 6c 20 22 c0 09 |-ilisp #|[nil "..|
|00000790| 21 88 c2 c3 21 87 22 20 | 5b 75 73 65 2d 6c 6f 63 |!...!." |[use-loc|
|000007a0| 61 6c 2d 6d 61 70 20 69 | 6c 69 73 70 2d 75 73 65 |al-map i|lisp-use|
|000007b0| 2d 6d 61 70 20 6d 65 73 | 73 61 67 65 20 22 49 6e |-map mes|sage "In|
|000007c0| 74 65 72 61 63 74 69 76 | 65 20 6b 65 79 62 6f 61 |teractiv|e keyboa|
|000007d0| 72 64 20 6d 6f 64 65 22 | 5d 20 32 20 28 23 24 20 |rd mode"|] 2 (#$ |
|000007e0| 2e 20 31 38 32 35 29 20 | 6e 69 6c 5d 29 0a 23 40 |. 1825) |nil]).#@|
|000007f0| 39 32 20 53 65 6e 64 20 | 74 68 65 20 6c 61 73 74 |92 Send |the last|
|00000800| 20 74 79 70 65 64 20 63 | 68 61 72 61 63 74 65 72 | typed c|haracter|
|00000810| 20 74 6f 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 | to the |current |
|00000820| 69 6e 66 65 72 69 6f 72 | 20 4c 49 53 50 20 65 63 |inferior| LISP ec|
|00000830| 68 6f 69 6e 67 0a 69 66 | 20 69 6c 69 73 70 2d 72 |hoing.if| ilisp-r|
|00000840| 61 77 2d 65 63 68 6f 20 | 69 73 20 54 2e 1f 0a 28 |aw-echo |is T...(|
|00000850| 64 65 66 61 6c 69 61 73 | 20 27 69 6c 69 73 70 2d |defalias| 'ilisp-|
|00000860| 73 65 6e 64 2d 63 68 61 | 72 20 23 5b 6e 69 6c 20 |send-cha|r #[nil |
|00000870| 22 c0 c1 c2 5c 22 ab 94 | 64 62 88 0b 63 88 c4 c5 |"...\"..|db..c...|
|00000880| 20 21 60 c6 93 88 0e 07 | 60 c6 93 88 c8 c5 20 c9 | !`.....|`..... .|
|00000890| ca 0b 5c 22 5c 22 88 cb | 0e 0c 21 87 22 20 5b 69 |..\"\"..|..!." [i|
|000008a0| 6c 69 73 70 2d 76 61 6c | 75 65 20 69 6c 69 73 70 |lisp-val|ue ilisp|
|000008b0| 2d 72 61 77 2d 65 63 68 | 6f 20 74 20 6c 61 73 74 |-raw-ech|o t last|
|000008c0| 2d 69 6e 70 75 74 2d 63 | 68 61 72 20 70 72 6f 63 |-input-c|har proc|
|000008d0| 65 73 73 2d 6d 61 72 6b | 20 69 6c 69 73 70 2d 70 |ess-mark| ilisp-p|
|000008e0| 72 6f 63 65 73 73 20 6e | 69 6c 20 63 6f 6d 69 6e |rocess n|il comin|
|000008f0| 74 2d 6c 61 73 74 2d 69 | 6e 70 75 74 2d 65 6e 64 |t-last-i|nput-end|
|00000900| 20 70 72 6f 63 65 73 73 | 2d 73 65 6e 64 2d 73 74 | process|-send-st|
|00000910| 72 69 6e 67 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |ring mak|e-string|
|00000920| 20 31 20 6d 65 73 73 61 | 67 65 20 69 6c 69 73 70 | 1 messa|ge ilisp|
|00000930| 2d 72 61 77 2d 6d 65 73 | 73 61 67 65 5d 20 35 20 |-raw-mes|sage] 5 |
|00000940| 28 23 24 20 2e 20 32 30 | 33 35 29 20 6e 69 6c 5d |(#$ . 20|35) nil]|
|00000950| 29 0a 23 40 32 38 20 54 | 75 72 6e 20 6f 6e 20 72 |).#@28 T|urn on r|
|00000960| 61 77 20 6b 65 79 62 6f | 61 72 64 20 6d 6f 64 65 |aw keybo|ard mode|
|00000970| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 6c |...(defa|lias 'il|
|00000980| 69 73 70 2d 72 61 77 2d | 68 61 6e 64 6c 65 72 20 |isp-raw-|handler |
|00000990| 23 5b 28 70 72 6f 63 65 | 73 73 20 6f 75 74 70 75 |#[(proce|ss outpu|
|000009a0| 74 29 20 22 c0 20 87 22 | 20 5b 72 61 77 2d 6b 65 |t) ". ."| [raw-ke|
|000009b0| 79 73 2d 69 6c 69 73 70 | 5d 20 31 20 28 23 24 20 |ys-ilisp|] 1 (#$ |
|000009c0| 2e 20 32 33 39 31 29 5d | 29 0a 23 40 33 36 20 54 |. 2391)]|).#@36 T|
|000009d0| 75 72 6e 20 6f 6e 20 69 | 6e 74 65 72 61 63 74 69 |urn on i|nteracti|
|000009e0| 76 65 20 6b 65 79 62 6f | 61 72 64 20 6d 6f 64 65 |ve keybo|ard mode|
|000009f0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 6c |...(defa|lias 'il|
|00000a00| 69 73 70 2d 69 6e 74 65 | 72 61 63 74 69 76 65 2d |isp-inte|ractive-|
|00000a10| 68 61 6e 64 6c 65 72 20 | 23 5b 28 70 72 6f 63 65 |handler |#[(proce|
|00000a20| 73 73 20 6f 75 74 70 75 | 74 29 20 22 c0 20 87 22 |ss outpu|t) ". ."|
|00000a30| 20 5b 69 6e 74 65 72 61 | 63 74 69 76 65 2d 6b 65 | [intera|ctive-ke|
|00000a40| 79 73 2d 69 6c 69 73 70 | 5d 20 31 20 28 23 24 20 |ys-ilisp|] 1 (#$ |
|00000a50| 2e 20 32 35 31 31 29 5d | 29 0a 23 40 31 31 32 20 |. 2511)]|).#@112 |
|00000a60| 53 65 74 20 75 70 20 73 | 6f 20 74 68 61 74 20 74 |Set up s|o that t|
|00000a70| 68 65 20 69 6e 66 65 72 | 69 6f 72 20 4c 49 53 50 |he infer|ior LISP|
|00000a80| 20 63 61 6e 20 74 75 72 | 6e 20 6f 6e 20 45 4d 41 | can tur|n on EMA|
|00000a90| 43 53 20 72 61 77 20 6d | 6f 64 65 20 62 79 0a 73 |CS raw m|ode by.s|
|00000aa0| 65 6e 64 69 6e 67 20 5e | 5b 31 5e 5d 20 61 6e 64 |ending ^|[1^] and|
|00000ab0| 20 74 75 72 6e 20 69 74 | 20 6f 66 66 20 62 79 20 | turn it| off by |
|00000ac0| 73 65 6e 64 69 6e 67 20 | 5e 5b 30 5e 5d 2e 1f 0a |sending |^[0^]...|
|00000ad0| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6f 2d 62 72 |(defalia|s 'io-br|
|00000ae0| 69 64 67 65 2d 69 6c 69 | 73 70 20 23 5b 6e 69 6c |idge-ili|sp #[nil|
|00000af0| 20 22 c0 c1 21 88 c2 20 | 88 c3 c4 0d 42 42 89 15 | "..!.. |....BB..|
|00000b00| 87 22 20 5b 72 65 71 75 | 69 72 65 20 62 72 69 64 |." [requ|ire brid|
|00000b10| 67 65 20 69 6e 73 74 61 | 6c 6c 2d 62 72 69 64 67 |ge insta|ll-bridg|
|00000b20| 65 20 28 22 31 22 20 2e | 20 69 6c 69 73 70 2d 72 |e ("1" .| ilisp-r|
|00000b30| 61 77 2d 68 61 6e 64 6c | 65 72 29 20 28 22 30 22 |aw-handl|er) ("0"|
|00000b40| 20 2e 20 69 6c 69 73 70 | 2d 69 6e 74 65 72 61 63 | . ilisp|-interac|
|00000b50| 74 69 76 65 2d 68 61 6e | 64 6c 65 72 29 20 62 72 |tive-han|dler) br|
|00000b60| 69 64 67 65 2d 68 61 6e | 64 6c 65 72 73 5d 20 33 |idge-han|dlers] 3|
|00000b70| 20 28 23 24 20 2e 20 32 | 36 35 36 29 20 6e 69 6c | (#$ . 2|656) nil|
|00000b80| 5d 29 0a 23 40 32 33 34 | 20 44 65 6c 65 74 65 20 |]).#@234| Delete |
|00000b90| 41 52 47 20 63 68 61 72 | 61 63 74 65 72 73 2c 20 |ARG char|acters, |
|00000ba0| 6f 72 20 70 6f 70 20 62 | 72 65 61 6b 20 6c 65 76 |or pop b|reak lev|
|00000bb0| 65 6c 20 69 66 20 61 74 | 20 65 6e 64 20 6f 66 20 |el if at| end of |
|00000bc0| 62 75 66 66 65 72 2e 20 | 20 0a 4f 70 74 69 6f 6e |buffer. | .Option|
|00000bd0| 61 6c 20 73 65 63 6f 6e | 64 20 61 72 67 20 4b 49 |al secon|d arg KI|
|00000be0| 4c 4c 46 4c 41 47 20 6e | 6f 6e 2d 6e 69 6c 20 6d |LLFLAG n|on-nil m|
|00000bf0| 65 61 6e 73 20 6b 69 6c | 6c 20 69 6e 73 74 65 61 |eans kil|l instea|
|00000c00| 64 20 28 73 61 76 65 20 | 69 6e 20 6b 69 6c 6c 20 |d (save |in kill |
|00000c10| 72 69 6e 67 29 2e 0a 49 | 6e 74 65 72 61 63 74 69 |ring)..I|nteracti|
|00000c20| 76 65 6c 79 2c 20 41 52 | 47 20 69 73 20 74 68 65 |vely, AR|G is the|
|00000c30| 20 70 72 65 66 69 78 20 | 61 72 67 2c 20 61 6e 64 | prefix |arg, and|
|00000c40| 20 4b 49 4c 4c 46 4c 41 | 47 20 69 73 20 73 65 74 | KILLFLA|G is set|
|00000c50| 20 69 66 0a 41 52 47 20 | 77 61 73 20 65 78 70 6c | if.ARG |was expl|
|00000c60| 69 63 69 74 6c 79 20 73 | 70 65 63 69 66 69 65 64 |icitly s|pecified|
|00000c70| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 64 65 |...(defa|lias 'de|
|00000c80| 6c 65 74 65 2d 63 68 61 | 72 2d 6f 72 2d 70 6f 70 |lete-cha|r-or-pop|
|00000c90| 2d 69 6c 69 73 70 20 23 | 5b 28 61 72 67 20 26 6f |-ilisp #|[(arg &o|
|00000ca0| 70 74 69 6f 6e 61 6c 20 | 6b 69 6c 6c 66 6c 61 67 |ptional |killflag|
|00000cb0| 29 20 22 6d ab 8c c0 c1 | 21 88 c2 c3 20 c4 c5 21 |) "m....|!... ..!|
|00000cc0| 5c 22 87 c6 c7 0e 08 0e | 09 44 5c 22 87 22 20 5b |\"......|.D\"." [|
|00000cd0| 6d 65 73 73 61 67 65 20 | 22 50 6f 70 20 4c 49 53 |message |"Pop LIS|
|00000ce0| 50 20 6f 6e 65 20 6c 65 | 76 65 6c 22 20 63 6f 6d |P one le|vel" com|
|00000cf0| 69 6e 74 2d 73 69 6d 70 | 6c 65 2d 73 65 6e 64 20 |int-simp|le-send |
|00000d00| 69 6c 69 73 70 2d 70 72 | 6f 63 65 73 73 20 69 6c |ilisp-pr|ocess il|
|00000d10| 69 73 70 2d 76 61 6c 75 | 65 20 63 6f 6d 69 6e 74 |isp-valu|e comint|
|00000d20| 2d 66 69 78 2d 65 72 72 | 6f 72 20 63 61 6c 6c 2d |-fix-err|or call-|
|00000d30| 69 6e 74 65 72 61 63 74 | 69 76 65 6c 79 20 64 65 |interact|ively de|
|00000d40| 6c 65 74 65 2d 63 68 61 | 72 20 61 72 67 20 6b 69 |lete-cha|r arg ki|
|00000d50| 6c 6c 66 6c 61 67 5d 20 | 34 20 28 23 24 20 2e 20 |llflag] |4 (#$ . |
|00000d60| 32 39 35 33 29 20 22 70 | 22 5d 29 0a |2953) "p|"]). |
+--------+-------------------------+-------------------------+--------+--------+
